Imports Microsoft.SharePoint
Partial Class BusquedaGrupos
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If (Page.IsPostBack = False) Then

        End If
        
    End Sub

    'Region "Impersonalizar"
    Private Function impersonalizar() As SPSite
        Dim miSite As New SPSite(ConfigurationManager.AppSettings(CONSTANTES.siteACTA))
        Dim miWeb As SPWeb = miSite.OpenWeb()
        Dim user As SPUser = miWeb.AllUsers(ConfigurationManager.AppSettings(CONSTANTES.usuarioPrivilegio))

        Dim mitoken As SPUserToken = user.UserToken
        miSite = New SPSite(ConfigurationManager.AppSettings(CONSTANTES.siteACTA), mitoken)
        Return miSite
    End Function
End Class
